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i * GENERAL AUTOMATION, INC. ALL RIGHTS RESERVED 

2 44 ************************************ ************ 

3 * 

it * PROGRAM NAME FPH-27 

5 * 

6 * MOOEL NUMBER 8F027 

7 * 

8 * PURPOSE FORTRAN PHASE-27 

9 * 

10 * PROGRAMMER OICK WALLMANN 

11 * 

12 »«*¥«**«********* REVISION LIST ************** 

13 * 

ltf * RV DATE SCO BY REASON FOR CHANGE 

15 * .- 1 

16 * 

17 * 01 11/16/70 NONE RPH INITIAL RELEASE 

18 * 

jg ************************************************** 

2q ************************************************** 

21 HONG MPX FORTRAN ** OUTPUT II 

22 ************************************************** 

23 *STATUS-V£RSICN 1, MODIFICATION 

2*» * 

25 *FUNCTION/OPERATION- 

26 * * TESTS FOR EXTENDED PRECISION AND CHANGES 

27 * THE NAME CODES FOR THE EFFECTED SUBROUTINES 

28 * TO REFLECT THIS CONDITION 

29 * * CONVERTS THE COMPILED STATEMENT STRING TO 

30 * OUTPUT CODE AND STORES IT IN THE BUFFER AREA 

31 * 

32 *INPUT- 

33 * * THE STATEMENT STRING 
3k * * THE SUMBOL TABLE 

35 * *. THE FORTRAN COMMUNICATIONS AREA 

36 * 

37 *GUTPUT- 

-38 * * THE COMPILED PROGRAM IN DISK SYSTEM FORMAT 

39 * INCLUDING REAL AND INTEGER CONSTANTS, DATA 

i*0 * STATEMENTS AND DEFINE FILES. 

kl * 

k2 ^EXTERNAL REFERENCES- 

i*3 * * SUBROUTINES- 

kk * ROLRX-INTERPHASE ROLLING ROUTINE 

k5 * 

46 *EXITS- 

H7 * * NORMAL- 

48 * PHASE 28 IS CALLED VIA THE ROLRX 

tig * ROUTINE ANO CONTROL IS PASSED TG IT 

50 * * ERRCRS- 

51 * OVERLAP- 

52 * IF A PREVIOUS PHASE HAS DETECTED AN 

53 * OVERLAP ERROR THEN AN IMMEDIATE EXIT 
5<* * IS PERFORMED. OTHERWISE, NO OVERLAP 

55 * ERROR IS DETECTED. 

56 * SYNTAX- 

57 * NO SYNTAX ERRORS ARE DETECTEO 

58 * 

59 *TABLES/WORK AREAS 



SEITE 




69 
70 
71 
72 
73 
7k 
75 
76 
77 
78 
79 
80 
81 
82 
83 
6k 

85 

86 

87 

88 

89 

90 

91 

92 

93 

9^ 

95 

96 

97 

98 

99 

100 

101 

102 

103 

10*» 

105 

106 

107 

108 

109 

110 

111 

112 

113 

il*» 

115 

116 

117 

118 

119 



THE STATEMENT STRING 

THE SYMBOL TABLE 

THE FORTRAN COMMUNICATIONS 

_ABS__. /ae^F CA>#e~ 

SYSTEM AND FORTRAN EQUATES 



AREA 



EQU 
EQU 
EOU 
EQU 
EQU 
EQU 
EQU 






/7FFF C3>/*=' 

*»»320 

MEMPV-PHSIZ 

OVERL-22 

FCOM-56 

PHNTB-50 

/85 



MAXIMUM CORE SIZE 
MAXIMUM PHASE SIZE 
PHASES 2-29 START 
FORTRAN COMM. TABLE 
PHASE TA9LE 
INTERPHASE CALL 
IOCS ENTRY 



* 

SOFS 

EOFS 

SCFST 

SOFNS 

SOFXT 

SOFGT 

EOFST 

COMON 

CSIZE 

ERROR 

FNAME 

SORF 
CCWD 

# 

IOCS 
* 

OFCNT 

* 

LCOMN 
ICCER 



FORTRAN COMMUNICATIONS AREA 



ORG 
BSS 
3SS 
9SS 
9SS 
9SS 

ess 

3SS 
BSS 
BSS 
BSS 
BSS 
BSS 
BSS 
BSS 



FCOM 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

SIT 
BIT 
BIT 
BIT 
BIT 
BIT 
BIT 



15 
Ik 
13 
12 
11 
10 
9 



BSS 



START OF STRING 
END OF STRING 
START OF SYMBOL TABLE 
PROG LENGTH AT OBJ TIME 
SIZE OF WORK AREA 
SIZE OF CONSTANT AREA 
END OF SYMBOL TABLE 
ENTRY POINT 
SIZE OF COMMON 
OVERLAP ERROR 
PROGRAM NAME 
2NO WORD PROG NAME 
SUBR (-) OR FUNC <+) 
CONTROL CARD WORD 
TRANSFER TRACE 
ARITHMETIC TRACE 
EXTENOEO PRECISION 
LIST SYMBOL TA8LE 
LIST SUBPROGRAM NAMES 
LIST SOURCE PROGRAM 
ONE WORO INTEGERS 
IOCS CONTROL CARD WORD 



SEE PHASE ONE FOR BIT PATTERNS 



BSS 1 

BSS 2 

BSS 2 

BSS 2 



DEFINE FILE COUNT 
INSKEL COMMON 
IOCS CONTROL CARD EPROR 
SYSTEM LOADER USE 



END OF FORTRAN COMMUNICATION 
AREA 

BUFFER COMMUNICATIONS AREA 
AND BUFFER 



ORG 



0VERL+3*320 



SEITE 3 



\\\ RtlFPT EQU * BUFFER POINTER 

\l\ i%V EQU BUFPT+i indicator pointer 

123 INC? EQU iSpiil INDICATOR COUNTER 

*" , nrTR EQU INCT+i LOCATION COUNTER 

\l% RECCT IqU LOCTR+l RECORD COUNT 

HI BUFF T EQU RECCT+1 OUTPUT BUFFER 

127 WD1 EQU BUFF+i 

128 W02 EQU BUFF+2 

129 WD3 EQU BUFF+3 

130 WD^ EQU BUFF+*» 

131 W05 EQU 9UFF+5 

132 W06 EQU DUFF+6 

133 WD7 EQU BUFF+7 
13* W08 EQU BUFF+8 

135 WD9 EQU 8UFF+9 

136 WD10 EQU BUFF+10 
137 
138 






i 139 ORG OVERL 

1*0 NEQ 9SC L ENT ENTRANCE 

til » INITIALIZTRANSFER VECTOR POINTER 

1*3 START LDX L3 ZERO SET POINTER TO TABLE 

125 • EXAMINE COM RECORDS FOR UDISK AND EXT PREC 

J!J * LD L IOCS GET IOCS CONTROL RECORD 
Zt cra 1* CHECK FOR UDISK 

\ll isi L UTOY,E BR IF ODD (BIT 15 ON=UDISK 

Jc U to L CCWO LOAD CONTROL CARD WORD 
\ll SLA 13 SHIFT EXTENDED PREC INOR 

\ll 8SC L 01011,- BR IF NOT EXTENDED PREC 

III I CHANGE SYSTEM SUBROUTINE NAMES 

lbG * SO THAT APPLICABLE NAMES BEGIN 



* WITH E RATHER THAN WITH F 



* 



159 
160 

HI * CHANGE SUBROUTINE NAMES 

163 * FAXIX THROUGH FADO 

16* * 

165 LDX 1 FAXIX-TABSS 2 

ififi 01005 9SI FTOE CHANGE NEXT NAME 
1*7 MDX 1 -2 DECR COUNT ON NAMES 
HI „ox Q1005 BR IF INDEX NOT ZERO 

170 LO 3 HOOO*-Z OIFF IN SECOND CHAR 

\y\ sTO DIFF BETWEEN E AND F TO CHG NAMt 

1 7? ♦ 

:„ * CHANGE NAMES OF TRACE-ROUTINES 

IjZ « TO HAVE SECOND CHARACTER E 

175 * INSTEAD OF F 

176 * 

i77 LDX 1 FARI-TA8SS 2 

\ 7B B si FTOE BR TO CHANGE MFAR TO MEAR 

17 g LDX 1 FARIX-TABSS 2 



SEITE 



180 BSI FTOE BR TO CHANGE MFARX TO MEARX 

181 LDX 1 FIF-TABSS 2 

182 BSI FTOE BR TO CHANGE SFIX TO SEIX 

183 MDX Q1011 BR PAST SUBROUTINE 
18<» * 

185 * 

186 * SUBROUTINE 

187 * CHANGE . F. IN 1ST OR 2NO CHARACTER 

188 * NAME INTO .E. 

189 * OR E INTO V ETC 

190 * DISPLACEMENT IN NAME LIST XI 

191 * 

192 FTOE DC LINK ENTRY POINT 

193 LO LI TABSS-2 LOAD ENTRY FR TBL &LTV XR1 
19J» S DIFF SUBTRACT CHARACTER OIFF 

195 STO LI TABSS-2 SAVE NEW NAME 

196 BSC I FTOE RETURN 

197 I.**.*********************************************** 

198 * 

V_ 199 * SUBROUTINE TC CHANGE U TO Y IN FIO CALLS 

200 * 

2qi m.it4.in.inn.i.++ »*.+*.+ ****** ******************* ******* 

202 * 

203 UTOY OC *-* LINK ADOR WORD 
20*» 3TX 1 XR1SV SAVE XR1 

205 LOX LI UCOMP-URED+2 GET A TABLE LENGTH 

206 UTOYL LD LI URED-2 GET A TABLE ENTRY 

207 A H0A0O CHANGE THE U TO A Y 

208 STO LI UREC-2 PUT IT BACK IN THE TABLE 
209 MDX 1 -2 MOVE THE POINTER 

2f0 MDX UTOYL LOOP BACK TO DO IT AGAIN 

211 * UPON FALL THROUGH 

212 LDX LI UIOI-UFIO+2 GET ANOTHER TBL LENGTH 

213 UTOYM LO LI UFIO-2 LOAD AN ENTRY 

21l» A H0400 CHANGE THE U TO A Y 

215 STO LI UFIO-2 PUT IT BACK IN THE TABLE 

216 MDX 1 -2 MOVE THE POINTER 

217 MDX UTOYM LOOP BACK 

s^ 218 LDX Li »-* RESTORE XRi UPON FALL THRU 

219 XR1SV EQU +-i XRI SAVED HERE FRCH ABOVE 

220 BSC I UTOY EXIT THE UTOY ROUTINE 



* 



221 
222 

223 ************************* 

22^ * CONSTANTS 

225 DIFF DC /01O0 FOR CHANGING F TO E 

226 H0<»00 DC /0*»00 FOR CHANGING U TO Y 

227 * 

228 ************************************************** 

229 * 

230 Q201A LDX II SOFS INITIALIZE INPUT POINTER 

231 01011 EQU Q201A 

232 * 

233 LDX L3 ZERO RESTORE CONSTANT POINTER 
23U * 

235 MDX 1 -1 

236 02012 BSI 3 INIT-Z INITIALIZE NEXT STATEMENT 

237 LO 3 STOIC-Z LOAD STORED ID TYPE 

238 * 

239 * SPOT FOR TEST STOP 



SEITE 5 
240 SLA NOP 

zm * 

21,2 S 3 IDFOR-Z TEST FOR FORMAT STATEMENT 
2i*3 BSC L Q2013, - BR IF FORMAT 

214 * 

245 S 3 IOOEF-Z TEST FOR DEFINE FILE STHNT 

21,6 BSC L Q2101, - BR IF DEFINE FILE 

2^7 S 3 IDDAT-Z TEST FOR DATA STATEMENT 

248 BSC L Q2101, - PR IF DATA STATEMENT 

249 S 3 IDCAL-Z TEST FOR CALL LINK/EXIT 

250 BSC L G2201, - BR IF CALL LINK/EXIT 

25i HDX 03011 BR IF NOT ABOVE STHNT TYPES 

252 * 

253 * OUTP FORMAT STMT 

254 Q2013 8SI 3 INCPT-Z INCR INPUT POINTER 

255 Q2011 LO 10 LOAD STRING WORD 

256 BSI 3 OUABS-Z SUBR OUTPUT, ENTRY ABS 

257 LO 3 WCNT-Z TEST WORD COUNT 

258 BSC L Q2013,Z- BR IF WORD COUNT IS POSITIV 
^ 259 MOX Q2012 BR IF COUNTER IS ZERO 

260 * 

261 * MOVE POINTER WITHOUT OUTPUT 

262 * DATA, DEFINE FILE HAVE ALREADY 

263 * BEEN OUPUT 

264 * 

265 Q2101 SLA NOP 

266 BSI 3 INCPT-Z BR TO INCR I/P POINTER 

267 LD 3 WCNT-Z LOAD WORD COUNT 

268 BSC L Q2101,Z- PR IF WORD COUNT IS POSITIV 
c 269 MDX Q2012 PR IF ZERO END OF STMNT 

270 * 

271 * SPECIAL OUTPUT OF 

272 * CALL LINK OR CALL EXIT 

273 * 

274 * 

275 * TEST IF CALLLINK OR CALLEXIT 

276 * 

277 Q2201 LD 11 LCAO DATA WORD 

_ 278 S 3 H590 0-Z TEST CALL LINK FLAG 

279 BSC L Q2213,Z BR IF NOT CALL LINK 

280 * 

281 * OUTPUT CALL LINK 

282 * 

283 02211 LOD LINKN GET TRUNCATED EBC NAME 

284 BSI 3 OULCL-Z GO OUTPUT IT 

285 * 

286 * OUTPUT .CALL XXXXX. 

287 * 

288 LD 1 «♦ GET 2ND WD OF CALL 

289 RTE 15 PUT BITS 1 THRU 15 IN Q 

290 LD 12 GET 1ST WD OF CALL 

291 SLT 1 EXPUNGE BIT 

292 SRT 2 RIGHT JUSTIFY A AND Q 

293 02212 BSI 3 OULCL-Z GO OUTPUT CALL 

294 MDX Q2101 BR BACK, CONTINUE OUTPUT 

295 * 

296 * OUTPUT CALL EXIT 

297 * 

298 02213 LDD EXITN CALL .EXIT. NAME 

299 MOX Q2212 PR TO A BR 
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Vw 



-w 



300 
301 
302 
303 
304 
305 
306 
307 
308 
309 
310 
311 
312 
313 
314 
315 
316 
317 
318 
319 
320 
321 
322 
323 
324 
325 
326 
327 
328 
329 
330 
331 
332 
333 
334 
335 
336 
337 
338 
339 
31*0 
341 
342 
343 
344 
345 
346 
347 
348 
349 
350 
351 
352 
353 
354 
355 
356 
357 
358 
359 



LINKN 

EXITN 

* 

* 
03011 



3SS 

EXIT 

DC 
DC 
DC 
DC 



LD 

9SC 

MDX 

LD 

S 

9SC 

MDX 

BSC 



ANO LINK IN TRUNCATED EBCDIC 



Q3013 
03014 



Q3021 



Q3022 
Q3023 



* 
* 
04011 



8SI 

LD 

BSC 

HDX 

LD 

ANO 

BSC 

SRA 

A 

STO 

LD 

9SI 

LD 

8SI 

BSI 

MOX 



Q«»012 
* 

* 



S 

BSC 

MDX 

S 

BSC 

MOX 

LD 

BSI 

BSI 

LD 

BSI 
MDX 



/1325 

/5480 
/059C 
/98C0 



WCNT-Z 

Z- 

03013 

STOIC-Z 

IOEN0-Z 

Z 

02012 

OUTER 



3 INCPT-Z 

1 

Q4011 
1 

3 H7800-Z 
L Q3023, - 



11 

3 CON4B-Z 

Q3022 1 

»-# 

OUABS-Z 



GETST-Z 

OUREL-Z 

Q3011 



CONSTANT 
CONSTANT 
CONSTANT 
CONSTANT 



LOAO WORD COUNTER 

SKIP IF WOROCOUNTEP NOT POS 

BR IF POSITIVE 

LOAD STORED 10 WORD TYPE 

TEST IF END STATEMENT 

SKIP IF STORED ID .END. 

BR IF NOT 

TERMINATE OUTPUT 



INCR INPUT POINTER 

LOAD WORD FROM I/P STRING 

SKIP IF .PACKED. WCRD 

BR IF NOT 

LOAO WORO FROM I/P STRING 

GET INOEX TO INSTRUCTION TB 

BR IF NO INSTR INCLUDED 

WORD CONSISTS OF flOOR ONLY 
RIGHT JUSTIFY INDEX 
4-8IT-CONV-TARLE ORIGIN 
COMPUTE ADOR OF INST IN TBL 
LOAD INST FROM TBL TAB4 
SUBR OUTPUT, ENTRY ABS 
LOAD WORD FROM I/P STRING 
GET OBJ TIME ADDR FR SYM TB 
SUBR OUTPUT, ENTRY RLTV 
CONTINUE PROCESSING 



TEST IF SPECIAL BSC ONE WHICH IS 
FOLLOWED BY A RELATIVE ADDRESS , 



3 H5O00-Z 



G4021 

HFFOO-Z 

7 

Q4031 

H4D80-Z 

0UA8S-Z 

INCPT-Z 

LOCTR 



.SPEC BSC L. 
SKIP IF NOT .SPEC 
BR IF SPEC BSC L 



8SC L. 



3 OURNC-Z 
03011 



.BSC II. - .SPEC BSC L. 

SKIP IF .BSC II. 

BR IF NOT 

OBJECT TIME .BSC II. TO ACC 

SUBR OUTPUT, ENTRY ABS 

INCREMENT INPUT POINTER 

LOCATION COUNTER 

SUBR OUTPUT, ENTRY RLTV 
BR TO CONT OR TERMINATE 



SPECIAL BSC 
IS FOLLOWED 



L ENCOUNTERED 
BY A RELATIVE 



ADDRESS 



SEITE 



360 

361 

362 

363 

36«i 

365 

366 

367 

368 

369 

370 

371 

372 

373 

37k 

375 

376 

377 

378 

379 

380 

381 

382 

383 

38i* 

385 

386 

387 

388 

389 

390 

391 

392 

393 

39*» 

395 

396 

397 

398 

399 

«»00 

*»01 

1*02 

*»03 

kQi* 

i»05 

«»06 

t»07 

«»08 

«*09 

t*10 

«*il 

M2 

*»13 

klk 

M5 

*t!6 

<*17 

M8 

U9 



Qi»021 LO 
BSI 
BSI 
LD 
MOX 

Qi»03i LD 
S 

BSC 
MDX 
LD 
BSI 
SLA 
S 

BSI 
BSI 
MDX 

* 

Q^OM LD 
S 

BSC 
LD 
BSI 
LD 

Qk0U2 BSI 
BSI 
MDX 

* 

Q5011 LD 
AND 
BSC 
MOX 



* 



LD 
BSI 
BSI 
BSI 
MDX 
* 

Q7011 LD 
SLA 
BSC 

MDX 

* 



RATHER THAN BY A SYMBOL TABLE NAME 

3 H*iC08-Z OBJ TIME . BSC L. TO ACC 

3 OUABS-Z SUBR OUTPUT, ENTRY ABS 

3 INCPT-Z INCR INPUT POINTER 

1 OUTPUT RLTV AOOR FR STRING 

QJ+012 BR TO OUTPUT ROUTINE 



TEST IF .LDX LI. 
WHICH IS FOLLOWED 
VALUE AND OUTPUT 
BY THE ABSOLUTE VALUE 



1 

3 



1 

3 

3 

3 

3 

3 



BY AN ABSOLUTE 
,LOX LI. FOLLOWED 





H5BO0 

Z 

Q*»0M 

LDXL1 

OUABS 

16 

1 

OUABS 

INCPT 

Q3011 



-Z 



-Z 



•z 
■z 



LOAD WORD FROM I/P STRING 

SUBTRACT CODE FOR .LDX LI. 

SKIP IF .LOX Li. 

BR IF NOT 

OUTPUT .LDX Li. 

OUTPUT IN ABS MODE 

CLEAR ACC 

CHANGE SIGN OF STRING WD 

OUTPUT FOLLOWING WD IN ABS 

INCR INPUT POINTER 

CONTINUE THROUGH STRING 



TEST IF .BSC I. 
WHICH REQUIRES 



OUTPUT OF ENTRY ADOR 



FROM I/P STRING 
.BSC I. CONSTANT 



1 
3 
3 
3 



LOAD WORD 

H5080-Z SUBTRACT 

05011, Z BP IF NOT BSC I 

H«»C80-Z OUTPUT .BSC I. 

OUABS-Z IN ABSOLUTE MODE 

COMON OUTPUT ENTRY AODR 

OURNC-Z ADOR OF OBJECT TIME LINK W 

INCPT-Z INCREMENT INPUT POINTER 

03011 CONTINUE 

TEST IF TWO-WORD CALL OPERATOR 

LOAD WORD FROM INPUT STRING 
HFF80-Z TEST BITS 0-8 

Z SKIP IF .CALL SUBPPOGR. 

Q7011 BR IF NOT 

TWO-WORD CALL 

1 LOAD SECOND WORD OF CALL 
GETST-Z GET OBJ TIME ADOR OR NAME 
OULCL-Z SUBR O/P, ENTRY 2-WO CALL 
INCPT-Z INCREMENT INPUT COUNTER 
Q3011 CONTINUE THROUGH STRING 

TEST IF SYST SUBROUTINE CALL 

LOAD STRING WORD 

1 TEST BIT 1 FOR CALL 
Z SKIP IF SYST. CALL 

Q7021 BR IF NOT 

OUTPUT SYSTEM SUBROUTINE CALL 
ONE-WORD CALL 



SEITE 



<»20 SRA 7 SHIFT POINTER SYST SU3R TBL 
*»21 A 3 SSTOR-Z COMPUTE ADORESS IN SYSTEM 
<»22 STO Q7012 i SUBROUTINE TABLE AND INSERT 

1*23 * 

f*2k Q7012 LD L *-* LOAD WD2 FROM SYST SUBR T8L 

«»25 RTE 16 PUT IN EXTENSION 

«»26 MDX L 07012 1,-1 OECR AOOR SYSTEM SUBR TBL 

k27 SLA fl NOP 

1*28 LD I Q7012 1 LOAD WOi FROM SYST SUBR TBL 

k29 3SI 3 OUCAL-7 SUBR. OUTPUT, ENTRY CALL 

U30 * 

*»31 * TEST WHETHER OUTPUT SUBR CALL WAS 

<»32 * .SUBSC. OR .SUBIN. 

«3 * .FIOAF. OR .FIOAI. 

<»3* * ARGUMENTS OF THESE CALLS 

i.35 * REQUIRE SPECIAL TREATMENT 

^36 * SUBROUTINES HAVE BOTH ABSOLUTE 

*»37 + AND RELATIVE ARGUMENTS 

«»38 LD 10 LOAD WORD FROM STRING 

i»39 S 3 H1O00-Z TEST FOR .CALL SUBIN, 

t*t*Q BSC L Q7051, - BR IF .CALL SUBIN. 

kkl LD 10 LOAD WORD FROM STRING 

M»2 S 3 CSUBS-Z TEST FOR .CALL SUBSC. 

WS BSC L Q8011, - BR IF .CALL SUBSC. 

«***«♦ LD 10 LOAD WORD FROM STRING 

W5 S 3 M1600-Z TEST FOR .CALL SIOAI. 

WG> BSC Z SKIP IF .CALL SIOAI. 

W7 S 3 M1680-Z TEST FOR .CALL SIOAF. 

kM BSC Z SKIP IF EITHER SPECIAL CALL 

<t*»9 S 3 M2«»Q0-Z TEST FOR .CALL SDAF. 

<»50 BSC Z SKIP IF EITHER SPECIAL CALL 

«»5i S 3 M2380-Z TEST FOR .CALL SDAI. 

k52 BSC Z SKIP IF EITHER SPECIAL CALL 

k5Z S 3 M1E00-Z TEST FOR .CALL UIOAI. 

t*5U BSC Z SKIP IF EITHER SPECIAL CALL 

k55 S 3 M1E80-Z TEST FOR .CALL UIOAF. 

ii56 BSC L Q8051, - BR IF ANY OF ABOVE FOUND 

t»57 * 

i»58 * NO SPECIAL TREATMENT REQ. 

*»59 8SC L Q3011 BR TO NEXT ITEM ON STRING 

«»60 * 

«»61 * NO SYSTEM SUBROUTINE CALLS FOUND 

kS2 * TEST NEXT FOR . STX LI. CODE 

^63 * 

<f6*» Q7021 LD 10 LOAD HORO FROM STRING 

i»65 S 3 H62G0-Z TEST FOR .STX LI. 

i»66 BSC L Q7031, - BR IF STX LI 

1»67 * 

U68 * NO SPECIAL TREATMENT REQUIRED 

«*69 * CONVERT ONE WORD OF PRE-OUT^UT CODE 

<»70 * INTO OBJECT TIfcE-INSTRUCTION, 

t*71 * OUTPUT .ABSOLUTE. 

<|72 * 

«i73 * COMPUTE 6-BIT CONVERSION 

li7* LO 10 LOAD WORD FROM STRING 

1*75 AND 3 H3F00-Z GET BITS 2-7 RLTV TBL AODR 

«»?6 SRA 8 RIGHT JUSTIFY 

l»77 A 3 CONi»B-Z ADD TO ADDR CONVERSION TBL 

«»78 STO Q7022 1 TO COMPUTE ADDR TO LOAD 

«»79 LO 10 LOAD STRING WORD 



SEITE 



*»80 




AND 


3 


HOOFF-Z 


GET OUTPUT STORAGE AOOR 


<»81 


Q7022 


A 


L 


♦-* 


TABLE VALUE 


<t82 




8SI 


3 


0UA8S-Z 


SU9R OUTPUT, ENTRY ABS 


*t83 




BSC 


L 


Q3011 


BR TO NEXT ITEM ON STRING 


W* 


* 










t*85 


* 










t*86 


Q7031 


10 


L 


STXL1 


OUTPUT .STX LI. 


t*87 




BSI 


3 


OUABS-Z 


IN ABSOLUTE MODE 


k88 




9SI 


3 


INCPT-Z 


INCR INPUT COUNTER 


*f89 




LO 


1 





LOAD STRING WORD 


*»90 




AND 


3 


H7FFF-Z 


OUTPUT * DISPLACEMENT 


t*91 




A 


L 


LOCTR 


INCR BY LOC COUNTER 


U92 




STO 


1 





STORE FOR DUMP F TEST 


«»93 




BSI 


3 


OURNC-Z 


PUT OUT RELATIVE OUTPUT 


Mk 




BSC 


L 


Q3011 


CONTINUE THROUGH STRING 


1**5 


» 










«»96 


* 






OUTPUT ARGUMENTS OF .CALL SUBIN. 


k97 


Q7051 


BSI 


3 


INCPT-Z 


INCR INPUT POINTER 


1**8 




LD 


1 





LOAD STRING WORD 


i*** 




BSC 


L 


Q7055, Z 


PR IF TAGGED ADDRESS 


500 


* 










501 


* 






OUTPUT OELIMITOR, ONE OR ZERO 


502 




BSI 


3 


OUAeS-Z 


IN ABSOLUTE MODE 


503 




LD 


1 





LCAO STRING WORO 


50«» 




BSC 


L 


07051, - 


BR IF DELIMETER ZERO 


505 




SRA 




1 


SHIFT OFF LOW ORDER BIT 


506 




BSC 


L 


03011, - 


BR IF ONE 


507 


♦ 










508 




WAIT 






PAUSE, PROGRAM 


509 




MDX 




*-2 


ERROR IF NEITHER 


510 


* 










511 


07055 


AND 


3 


H7FFF-Z 


REMOVE .TAG. 


51? 




BSI 


3 


OURNC-Z 


OUTPUT RELATIVE 


513 


* 








WITHOUT .COMMON-CHECK. 


5i«t 




MDX 




Q7051 


BR TO OUTPUT ARGUMENTS 


515 


* 










516 


* 






OUTPUT ARGUMENTS OF 


517 


* 






• CALL SUBSC. 


518 


Q8011 


LD 


1 


1 


LOAD STRING WORD 1 


519 




BSI 


3 


GETST-Z 


GET OBJ TIME ADDR OF SGT 


520 




BSI 


3 


OUREL-Z 


SUBR OUTPUT, ENTRY RLTV 


521 




LD 


1 


2 


ACC STRING WORD 2 Ok 


522 




BSI 


3 


OUABS-Z 


SUBR OUTPUT, ENTRY ABS 


523 




BSI 


3 


INCPT-Z 


INCR I/P POINTER 1 TIME 


52k 




BSI 


3 


INCPT-Z 


INCR I/P POINTER 2 TIMES 


525 




BSI 


3 


INCPT-Z 


INCR I/P POINTER 3 TIMES 


526 


Q8021 


LD 


1 





LOAD STRING WORD 


527 




BSI 


3 


GETST-Z 


GET OBJ TIME ADOR 


528 




BSI 


3 


OUREL-Z 


SUBR OUTPUT, ENTRY RLTV 


529 




LD 


1 


1 


01 OR D2 OR 03 TC ACC 


530 




8SI 


3 


OUABS-Z 


SUBR OUTPUT, ENTRY ABS 


531 




BSI 


3 


INCPT-Z 


INCR I/P POINTER 1 TIME 


532 




BSI 


3 


INCPT-Z 


INCR I/P POINTER 2 TIMES 


533 




LD 


1 


-1 


LOAD PREVIOUS WORD 


53^ 




BSC 


L 


Q301*», Z 


BR IF PREVIOUS O/P TAGGED 


535 




MDX 




08021 


BR IF NOT 


536 


* 










537 


* 






OUTPUT ARGUMENTS OF 


538 


* 






.CALL FIOAX. OR .CALL FIOIX, 


539 


♦ 













SEITE 


10 








5*0 


Q8051 


LD 


1 


1 


LOAD 


2ND STRING WOFD 


591 




BSI 


3 


GETST-Z 


GET OBJECT TIME AOTR 


542 




SSI 


3 


OUREL-Z 


SUBR 


OUTPUT, ENTRY RLTV 


543 




LD 


1 


2 


ARRAY 


SIZE 


544 




AND 


3 


H7FFF-Z 


REMOVE SIGN 


545 




BSI 


3 


OUABS-Z 


SUBR 


OUTPUT, ENTRY ABS 


546 




BSI 


3 


INCPT-Z 


INCR 


INPUT POINTER 


547 




BSI 


3 


INCPT-Z 


I NCR 


INPUT POINTER AGAIN 


548 




3SC 


L 


Q3011 


BR TO 


PROCESS NEXT WORD 


549 


* 












550 


* 












551 


* WRITE BINARY DATA 






552 


♦ 












553 


WRITE 


DC 




*_* 




ENTRY POINT 


554 




LDX 


3 


54 






555 




SLA 




17 




CLEAR CARRY 


556 




LD 


L 


RECCT 




RECORD COUNT 


557 


WR01 


A 


L3 


BUFF 




FORM CHECKSUM 


558 




BSC 




C 






559 




A 




ONE 






560 




MDX 


3 


-1 






561 




MOX 




WR01 




LOOP 


562 




RCP 




4,4 






563 




RIC 




4,4 


MAKE 


2*S COMPLIMENT 


564 




STO 


L 


WD2 




CHECKSUM 


565 




BSI 


L 


LIO 




WRITE BINARY RECORD 


566 




DC 




/2104 






567 




DC 




BUFF 






568 




DC 











569 




BSI 


L 


LIO 




WAIT FOR TRANSFER 


570 




DC 




/F0Q<4 






571 




LDX 


3 


53 






572 




SLA 




17 






573 


WR02 


STO 


L3 


WOl 




CLEAR BUFFER 


574 




MDX 


3 


-1 






575 




MDX 




WR02 




LOOP 


576 




LDX 


L3 


Z 




RESTORE Z POINTER 


577 




LD 


3 


C016-Z 




-16 


578 




STO 


L 


INCT 




CNT.-BIT COUNT = 06 


579 




LOO 




WR0 3 






580 




STO 


L 


BUFPT 




6UFPT=W010,INPT=WD4 


581 




LD 


L 


LOCTR 






582 




STO 


L 


WD1 




NEW LOCATION COUNTER 


583 




LD 




WR03+2 




/A00 


584 




STO 


L 


W03 




DATA RECORD TYPE 


585 




MOX 


L 


RECCT, 1 


INCREMENT RECORD COUNT 


586 




8SC 


I 


WRITE 


EXIT 




587 




3SS 


E 









588 


WR03 


DC 




W010 




DATA START 


589 




DC 




WD4 




CONTROL START 


590 




DC 




/A00 






591 


* 












592 


♦ 












593 


* 












594 


DC20 


DC 




20 


CONSTANT 


595 


0C36 


DC 




36 


CONSTANT 


596 


TEN 


DC 




10 


CONSTANT 


597 


* 












598 


H160C 


1 DC 




/1600 


SIOAI 


599 


M168C 


1 DC 




/168Q-/1600 


SIOAF-SIOAI 



SEITE ii 



600 


H1D00 


DC 


/1OO0 


CONSTANT MASK 


601 


H7FFF 


oc 


/7FFF 


CONSTANT MASK 


602 


H5B00 


oc 


/5BO0 


.LDX Li. 


603 


♦ 








609 


CD16 


DC 


/0010 


.ONE. IN WORTJCOUNT, -12 


605 


* 






* ALSO INITIAL VALUE 


606 


* 








607 


TEMPI 


DC 





TEMPORARY STORAGE 


608 


TEMF2 


OC 





TEMPORARY STORAGE 


609 


H2000 


OC 


/2000 


MASK FOR COMMON 


610 


H9C80 


OC 


/9C8 


CONSTANT MASK 


611 


H5080 


DC 


/5oeo 


CONSTANT MASK 


612 


H6200 


DC 


/6200 


CONSTANT MASK 


613 


* 








619 


ZERO 


OC 


/OOOO 


CONST ZERO 


615 


z 


EQU 


ZERC 




616 


+ 








617 


* 




ZERO 


ORIGIN OF TPANSFVECTOR 


618 


ONE 


DC 


/0001 


CONST ONE 


619 


TWO 


DC 


/0002 


CONST TWO 


620 


THREE 


OC 


/0003 


CONST THREE 


621 


FCUR 


OC 


/0009 


CONST FOUR 


622 


H0009 


EOU 


FOUR 




623 


ICFOR 


OC 


/6000 


ID .FORM/ST. 7 


629 


IOEND 


OC 


/1000 


ID .END. 9 


625 


H7800 


OC 


/7800 


CONSTANT MASK 


626 


C0N98 


DC 


TAB9-1 


CCNV-TABL-ORIGIN 


627 


H5000 


OC 


/5O00 


.SPEC BSC L. 12 


628 


H9D80 


OC 


/9D80 


OBJ. TIME BSC Li 


629 


HFFOO 


OC 


/FFOO 


.BSC 11. - .SPEC9SC, 19 


630 


BFEND 


DC 


8UFF+55 BUFFER END 


631 


H9C08 


OC 


/9C08 


OBJ. TIME .BSC Li. 17 


632 


CSU8S 


oc 


/1900 


CALL SUBSCRIPT 


633 


SSTOR 


oc 


TABSS- 


1 SYSTEM SUBR TABLE ORIGIN 


639 


H3F00 


DC 


/3F00 


MASK F CONVERSION 


635 


H OFF 


OC 


/OOFF 


CONSTANT MASK 


636 


H07FF 


DC 


/07FF 


CONSTANT MASK 


637 


HF800 


DC 


/F800 


CONSTANT MASK 


638 


C320 


DC 


320 


CONSTANT 


639 


HFF80 


DC 


/FF80 


CONSTANT MASK 


690 


H0005 


DC 


/0005 


CONSTANT MASK 


691 


H07FC 


DC 


/07FC 


CONSTANT MASK 


692 


M2900 


OC 


/2900- 


/1680 SOAF-SIOAF CCNSTANT 


693 


M2380 


DC 


/2380- 


•/2900 SOAI-SOAF CONSTANT 


699 


M1E00 


DC 


/1E00- 


•/2380 UIOAI-SOAI CONSTANT 


695 


M1E80 


DC 


/1E8 0- 


/1E00 UIOAF-UIOAI CONSTANT 


696 


C16 


DC 


16 


CONSTANT 


697 


SWISH 


DC 





ANOTHER CALL INDICATOR 


698 


* 








699 




BSS I 


E 




650 


STONA 


DC 





STORED NAME 


651 




DC 







652 


WCNT 


DC 





WORO COUNTER F. STMT 8 


653 


STOID 


DC 





STORED ID-TYPE 6 


659 


TWOWC 


OC 





TWO WORO CALL SWITCH 


655 


* 








656 


IDDEF 


DC 


/F000- 


•/6000 DEFINE FILE CONSTANT 


657 


IOOAT 


DC 


/F80 0- 


■/FOOD DATA CONSTANT 10 


658 


IOCAL 


DC 


/E0 0- 


•/F800 CALL CONSTANT ID 


659 


H9000 


DC 


/9000 


CCNSTANT MASK 



SEITE 12 



660 * 

661 * SUBROUTINE 

662 * INCREMENT INPUT POINTER 

663 * 

66% INCPT DC LINK 

665 MDX 1 1 INCR INPUT POINTER 

666 MDX L WCNT,-% BECR WO COUNTER 

667 SLA GUARDS AGAINST SKIP 

668 8SC I INCPT RETURN 

669 * 

67 * SUBROUTINE 

671 * GET OBJ. TIME ADDR OR ALPHABETIC 

672 * NAME FROM SYMBOL TABLE 

673 * CN ENTRY, THE ACCUMULATOR CONTAINS 
67% * THE SYMBOL TABLE REFERENCE WORD 

675 * 

676 GETST DC LINK ENTRY POINT 

677 AND 3 H07FF-2 GET RLTV ENTRY PT IN SYM TB 

678 STO GET1 1 SET UP AS ADDR 

679 LD L SOFST LOAD START OF SYMBOL TABLE 

680 S GET1 1 SUBTRACT POINTER ONE TIME 

681 S GET1 1 SUBTRACT POINTER SECOND TIM 

682 S GET1 1 SUBTRACT POINTER THIRD TIME 

683 A 3 H0005-Z ADD 5 TO GIVE LOG OF 3RD WD 
68% STO GET1 1 SAVE SYMBOL TABLE ADDR WO 3 

685 GET1 LD L *-* LOAD 3R0 WORD SYMBOL TABLE 

686 RTE 16 PUT IN EXTENSION 

687 MDX L GET1 1,-1 OECR SYMBOL TABLE POINTER 

688 SLA GUARDS AGAINST SKIP 

689 LD I GET1 1 LOAD 2ND SYM TBL WD IN ACC 

690 3SC I GETST RETURN 

691 * 

692 * SUBROUTINE 

693 * INITIALIZE NEXT STATEMENT 

69% » 

695 INIT DC LINK ENTRY POINT 

696 3SI 3 INCPT-Z INCR INPUT COUNTER 

697 LD 1 LOAO STRING WORD 

698 AND 3 H07FC-Z EXTRACT AND STORE 

699 S 3 FOUR-Z NORM - 1 WORD 

700 STO 3 WCNT-7 WOCOUNTER 

701 LD 10 LOAD STRING WORD 

702 AND 3 HF80 0-Z MASK ALL BUT TYPE CODE ID W 

703 STO 3 STOIO-Z SAVE TYPE CODE 
70% BSC I INIT RETURN 

705 * 

706 * 

707 * OUTPUT ADDRESS OR CONSTANT IN 

708 * ABSOLUTE MODE 

709 * ENTRY ABSOLUTE OUTPUT 

710 * 

711 OUABS DC LINK ENTRY POINT 

712 MDX T8011 BR TO OUTPUT IN ABSOLUTE 

713 * 

71<* * OUTPUT ADDRESS OR CONSTANT IN 

715 * RELOCATABLE MODE EXCEPT FOR VARIABLE 

716 * IN COMMON WHICH WILL BE ABSOLUTE MOD 

717 * ENTRY RELATIVE OUTPUT 

718 * WITH .COMMON-CHECK, 

719 * 





SEITE 


13 






720 


OUREL 


DC 







LINK ENTRY POINT 


721 




MDX 




T8013 


BR TO OUTPUT IN RLTV MODE 


722 


* 






ENTRY 


REALTIVE OUTPUT 


723 


* 






NO .COMMON-CHECK. 


72*i 


* 










725 


OURNC 


DC 







LINK ENTRY POINT 


726 




HDX 




T7051 


BR TO OUTPUT IN RLT\/ MODE 


727 


* 










728 


* 






ENTRY 


CALL-OUTPUT 


729 


* 






ONE WORD CALL 


730 


* 










731 


OUCAL 


DC 







LINK ENTRY POINT 


732 




mdx 




T7011 


BR TO OUTPUT ONE WC CALLS 


733 


* 










73*. 


* 






ENTRY FOR TWO- WORO-CALL-OUTFUT 


735 


OULCL 


DC 







LINK ENTRY POINT 


736 


T7005 


STD 


3 


STONA-Z 


STORE ACC AND EXTENSION 


737 




LO 


3 


ZERO-Z 


SECONO HALF CALL BITS 


738 




STO 


3 


TEMF2-Z 


SAVE IN TEMP STORAGE 


739 




LO 


3 


ZERO-Z 


LCAO ZERO INO 2WD SW 


7<i0 




STO 


3 


TWOWC-Z 


SET 2 WO CALL SWITCH 


71*1 




LD 




OULCL 


MOVE LINKWORD 


742 


T7006 


STO 




OUCAL 


SAVE IN RETURN WD AREA 


7*3 




LO 


3 


THREE-Z 


LCAO INOICATOR BITS 


7l»*» 




STO 


3 


TEMFi-Z 


SAVE IN TEMPORARY STORAGE 


7*5 




MDX 




T7013 


BR TO MOVE BITS 


746 


T7011 


STD 


3 


STONA-Z 


STORE REGISTERS 


7*7 




LD 


3 


ZERO-Z 


LOAD 2ND HALF CALL BITS 


7*8 




STO 


3 


TEMP2-Z 


SAVE IN TEMP STO 


7*9 




LD 


3 


TWO-Z 


LOAD 1ST HALF CALL BITS 


750 




STO 


3 


TEMP1-Z 


SAVE IN TEMP STO 


751 




STO 


3 


TWOWC-Z 


TWO WO CALL SW SET TO NO 


752 


T7013 


STO 


3 


SWISH-Z 


SET ANOTHER CALL INDICATOR 


753 


* 


TEST 


IF 


ONE SPACE LEFT IN BUFFER 


754 




LD 


L 


BUFPT 




755 




S 


3 


8FEND-Z 




756 




RIC 




*,* 




757 




BSC 




- 




758 




BSI 


3 


WRITE-Z 


WRITE IF ONE WORD LEFT 


759 




LD 


3 


TEMP1-Z 


CALL BITS 10 OR 11 


760 




BSI 




IBITS 


TC INOICATOR AREA 


761 




LD 


3 


STONA-Z 


FIRST HALF OF NAME 


762 




BSI 




T08UF 


MOVE TO BUFFER 


763 




LD 


3 


TEMF2-Z 


SEC HALF OF CALL BITS 


76* 


* 








00 OR 11 


765 




BSI 




IBITS 


TO INDICATOR AREA 


766 


* 






CHECK TWO WORD CALL SWITCH 


767 




LO 


3 


TWOWC-Z 


LOAD 2 WD CALL SWITCH 


768 




BSC 


L 


T7014, - 


BRANCH IF 2 WORD CALL 


769 


* 






COUNT ONE LOCATION LESS IF 


770 


* 






IT IS A 


ONE-WORD CALL 


771 




MDX 


L 


LOCTR,-l 


DECR LOCATION COUNTER 


772 




NOP 






POSSIBLE SIGN CHANGE 


773 


T7014 


LO 


3 


STONA 1- 


Z SECOND HALF OF NAME 


77* 




BSI 




TOBUF 


MOVE TO BUFFER 


775 




BSC 


I 


OUCAL 


RETURN 


776 


♦ 










777 


* 






RELATIVE 


OUTPUT, NO COMMON CHECK 


778 


* 










779 


T7051 


STD 


3 


STCNA-Z 


STORE REGISTERS 



SEITE !<♦ 



780 LO OURNC LOAD LINK WORD PREV ENTRY P 

781 STO OUREL MOVE TO EXIT POINT 

782 HOX T8015 BR TO PROCESS RELATIVE O/P 

783 * 

78* * ABSOLUTE OUTPUT 

785 * 

786 T8011 STD 3 STONA-Z STORE REGISTERS 

787 LD 3 7ERO-Z ZERO-ZERO 

788 8SI I3ITS TO INOICATCR AREA 

789 * 

790 * HOVE STORED ACCUMULATOR TO BUFFER 

791 * 

792 T8012 LD 3 STONA-Z LOAO OUTPUT WORD 

793 BSI TOBUF MOVE TO 8UFFER 
79«» * 

795 BSC I OUAPS RETURN 

796 * 

797 * RELATIVE OUTPUT INCLUDES TFST 

798 * WHETHER VARIABLE IS IN COMHCN, IN 

799 * WHICH CASE OUTPUT IS ABSOLUTE 

800 * 

801 T8013 STD 3 STONA-Z STORE REGISTERS 

802 LO L GET1 1 GET SYMBOL TABLE ADDRESS 

803 S 3 ONE-Z MODIFY TO GET SYM TBL ID WD 
80«» STO T80i*» 1 SAVE ADDR OF SYM TFL ID WO 

805 T801<» LD L »-» LOAD SYM TBL ID WORD 

806 AND 3 H2000-Z MASK TO GET COMMON BIT ONLY 

807 BSC L T8021,Z BR IF IN COMMON 

808 * 

809 T8015 LD 3 ONE-Z ZERO-ONE FOR INDICATOR BITS 

810 T8016 3SI I8ITS MOVE TO INDICATOR AREA 

811 LD OUREL MOVE LINK TO RETURN EXIT 

812 STO OUABS SAVE LINK WD 

813 MOX T8012 BR TO O/P WO IN RLTV MODE 
8i«» T8021 LD 3 STONA-Z GET NAME 

815 STO 3 STCNA+1-Z HOVE NAME ONE WORD 

816 LO 3 STONA-Z GET NAME 

817 BSC L T8022,- GO TO IF VARIABLE 

818 * 

819 * PREPARE FOR BLANK COMMON 

820 * 

821 LO 3 THREE-Z ELSE GET A 3 IN ACC 

822 MDX T8023 8R TO CONTINUE 

823 * 

82<f * PREPARE FOR LABELEO COMMON 

825 * 

826 T8022 LD 3 STONA-Z ADJ HIGH LIMIT OF LAB COM 

827 S 3 H4000-Z MODIFY IT 

828 STO 3 STONA-Z STORE IT IN TWO WORDS 

829 STO 3 STONA+1-Z WORO TWO 

830 LD 3 TWO-Z GET A TWO IN ACC 

831 T8023 STO 3 TEMP2-Z PUT IT IN TEMP2 

832 STX LO TWOWC SET SWITCH ON (TWO WD COM) 

833 LO OUREL TO MOVE LINK 
83*t MDX T7006 CONTINUE 

835 * 

836 * INDICATOR BITS 

837 * ACCUMULATOR CONTAINS BIT PATTERNS 

838 * TO MASK INTO THE INDICATOR FOINTER 

839 * BASED ON SHIFTS SPECIFIED IN THE 



SEITE 15 



8*0 
8*1 








INDICATC 


II? COUNTER 


8*2 


ieus 


OC 







LINK ENTRY POINT 


8*3 




STO 




I8IT5 


SAVE INDICATOR BITS 


8** 




LD 


L 


INCT 


PRODUCE SLA AND SRA 


8*5 




A 




I3IT6 


INSTRUCTIONS AND INSERT 


8*6 




STO 




IBIT3 


LENGTH OF SHIFT DEPENDS 


8*7 




A 




IBIT7 


ON INDICATOR COUNTER 


8*8 




STO 




I3IT2 


SET UP SRA INSTRUCTION 


8*9 




LO 


I 


INPT 


LOAD WORD FROM BUFFER 


850 


IHIT2 


SRA 




#-* 


SRA INCT - 2 


851 




A 




IBIT5 


VALUE FROM ACC ON ENTRY 


852 


IBIT3 


SLA 




♦-* 


SLA INCT - 2 


853 




STO 


I 


INPT 


SAVE WORD IN BUFFER 


85* 




MDX 


L 


INCT, -2 


DECR INOICATOR COUNTER 


855 




MDX 




I8IT*4 


BR IF NOT ZERO NC SKIP 


856 




MDX 


L 


INPT,i 


INCR. INDICATOR PNTR. 


857 




LO 


3 


CD16-Z 


REINITIALIZE INDR COUNTER 


858 




STO 


L 


INCT 




859 


IBIT* 


3SC 


I 


I8ITS 


RETURN 


860 


IBIT5 


OC 







TEMPORARY STORAGE 


861 


IBIT6 


OC 




/OFPE 


.SLA 0. - 0902 


862 


IBIT7 


DC 




/0800 


, SRA 0. - .SLA 0. 


863 


* 










86* 


* 






SUBROUTINE 


865 


* 






MOVE TO 


BUFFER 


866 


* 










867 


T08UF 


OC 







LINK ENTRY POINT 


868 




STO 


I 


BUFPT 


SAVE I/P WD IN BUFR POINTER 


869 




MDX 


L 


LOCTR,i 


INC. LCCATION COUNTER 


870 




HDX 


L 


BUFPT, 1 


INCR. BUFFER PNTR, 


871 




MOX 


L 


WD3,i 


INCREMENT DATA COUNT 


872 


* 






TEST IF 


END OF BUFFER 


873 




LD 


L 


BUFPT 




87* 




S 


3 


BFENC-Z 


COMPARE TO LAST WO OF 8UFFE 


875 




BSC 




- 


BUFFER NOT FULL 


876 




3SI 


3 


WRITE-Z 


WRITE RECORD 


877 




BSC 


I 


TOBUF 


RETURN 


878 


* 










879 


* 






TERMINATE OUTPUT 


880 


OUTER 


SLA 







NOP 


881 


♦ 










882 


* 






MAKE PROGRLENGTH EVEN NUMBER 


883 




LD 


L 


LOCTR 


LOAD LOCATION COUNTER 


88* 




BSC 




E 


SKIP IF EVEN 


885 




MDX 




*+l 


ODD VALUE 


886 




MDX 




* + 2 


EVEN LAST VALUE 


887 




3SI 


L 


OUABS 


DUMMY CELL 


888 




LD 


L 


WD3 




889 




AND 


3 


HOOFF-Z 


GET DATA WORD COUNT 


890 




BSC 




Z 


NO OUTPUT IF EMPTY 


891 




BSI 


3 


WRITE-Z 


WRITE LAST DATA 


892 




LO 




OUTC1 


/OFOO 


893 




STO 


L 


WD3 


SET EOP FLAG 


89* 




LO 


L 


SORF 




895 




BSC 


L 


0UTX1,Z 


SUBROUTIN/FUNCTION 


896 




LD 


L 


COMON 




897 




STO 


L 


WD* 


MAIN PROGRAM ENTRY 


898 


OUTX1 


BSI 


3 


WRITE-Z 


OUTPUT EOP RECORD 


899 




BSC 


L 


EXIT 


TO RECOVERY FHASE 





SEITE 


16 










900 


* 














901 


OUTC1 


DC 


/OF00 










902 


* 














903 


* 




.*-bit. 


-OBJ. TIME 


: INSTRUCTION T. 


90* 


♦ 














905 


TAB* 


DC 


/c*oo 


LC L 


CODE 1 




906 




DC 


/0<«OQ 


STO L 




2 




907 




DC 


/8*00 


A L 




3 




908 




DC 


/9*00 


S L 




* 




909 




OC 


/ACOO 


D L 




5 




910 




DC 


/A*00 


M L 




6 




911 


9SIL 


DC 


/**00 


BSI L 




7 




912 




DC 


/6580 


LDX 11 




8 




913 




DC 


/C500 


LD LI 




9 




91* 




DC 


/D500 


STO LI 




10 




915 




DC 


/8500 


A LI 




11 




916 




DC 


/9500 


S LI 




12 




917 




DC 


/ADOO 


D LI 




13 




918 




DC 


/A500 


M LI 




1* 




919 


* 














920 


BSCL 


DC 


/*CO0 


8SG L 




15 




921 


* 




USED FOR UNCOND 


BRANCH ONLY 


922 


* 














923 


* 




EXTENSION 








92* 


* 




. 6-BIT. 


OBJ. TIME 


INSTRUCTION TA 


925 


* 














926 


TA86 


OC 


MCOO 


BSC L 


CODE 16 


5000 


927 




DC 


/7*00 


MOX L 




17 


5100 


928 




LD 


3 


LO FAC 


1 


18 


527E 


929 




STO 


3 


STO FAC 


1 


19 


537E 


930 




S 


3 


S FAC 


1 


20 


5*7E 


931 




D 


3 


D FAC 


1 


21 


557E 


932 




STO 


3 


STD FftC 


1 


22 


567E 


933 




SD 


3 


SD FAC 


1 


23 


577E 


93* 




SRT 


16 


SRT 16 




2* 


5800 


935 




SLA 


16 


SLA 16 




25 


5900 


936 




DC 





RES FOR *- 


1 26 


5AO0 


937 


LDXL1 


OC 


/6500 


LDX LI 




27 


5B00 


938 




DC 


/*D80 


BSC 11 




28 


5C00 


939 


SBSCL 


DC 


/*C08 


BSC L SPEC 


: 29 


5O00 


9*40 




DC 





RES F GENLB 30 


5E00 


9*1 




DC 





CONST ZERO 


31 


5FO0 


9*2 




MDX 


* 






32 


eooo 


9*3 




DC 


/7500 


MDX LI 




33 


6100 


9** 


STXL1 


OC 


/6O00 


STX LI 




3* 


£200 


9*5 




LDX 





LDX 




35 


6300 


9*6 




OC 





WORK WORO 






9*7 




DC 





WORK WORD 






9*8 




OC 





WORK WORO 






9*9 


* 














950 


* 














951 


* 




SYSTEM 


SUBR. TABLE 






952 


* 














953 


TA9SS 


OC 


/06fH 


FAOD CODE 


008 




95* 




DC 


/*100 










955 




OC 


/060^ 


FADDX 




010 




956 




OC 


/*127 










957 




DC 


/068A 


FSUB 




018 




958 




OC 


/*080 










959 




DC 


/06SA 


FSU8X 




020 





SEITE 17 



960 




DC 


/4QA7 






961 




DC 


/0651 


FHPY 


028 


962 




OC 


/7A00 






963 




OC 


/0651 


FMPYX 


030 


964 




DC 


/7A27 






965 




OC 


/0610 


FOIV 


038 


966 




OC 


/9940 






967 




OC 


/0610 


FDIVX 


040 


968 




DC 


/9967 






969 




DC 


/064C 


FLD 


048 


970 




DC 


/4000 






971 




OC 


/064C 


FLDX 


050 


972 




OC 


/49C0 






973 




OC 


/068A 


FSTO 


058 


97«i 




OC 


/3580 






975 




OC 


/068A 


FSTOX 


060 


976 




DC 


/35A7 






977 




OC 


/0688 


FS8R 


068 


978 




OC 


/2640 






979 




OC 


/0688 


FS8RX 


070 


980 




DC 


/2667 






981 




DC 


/0612 


FOVR 


078 


982 




OC 


/5640 






983 




OC 


/0612 


FOVRX 


080 


98it 




OC 


Z5667 






985 




OC 


/0606 


FAXI 


088 


986 




DC 


/7240 






987 


FAXIX 


DC 


/0606 


FAXIX 


090 


988 




OC 


Z7267 






989 




DC 


/0626 


FIXI 


098 


990 




OC 


/7240 






991 




OC 


/0626 


FIXIX 


0A0 


992 




DC 


Z7267 






993 


FARI 


OC 


/i4ie 


MFAR 


0A8 


994 




OC 


/1640 






995 


FARIX 


OC 


/1418 


MFARX 


0B0 


996 




DC 


/1667 






997 


FIAR 


OC 


/1424 


MIAR 


088 


998 




OC 


/1640 






999 


FIARX 


OC 


/142ft 


MIARX 


OCO 


1000 




DC 


/1667 






1001 


AIFIX 


DC 


/0918 


IFIX 


0C8 


1002 




DC 


/99C0 






1003 


AFLT 


DC 


/06<«C 


FLOAT 


0O0 


1004 




OC 


/6063 






1005 




OC 


/0359 


COMGO 


one 


1006 




DC 


/41D6 






1007 




DC 


/098a 


ISTOX 


0E0 


1008 




OC 


/35A7 






1009 


FIIF 


OC 


/1424 


MIIF 


0E8 


1010 




OC 


/9180 






1011 


FIF 


OC 


/1418 


HFIF 


OFO 


1012 




DC 


/9180 






1013 


FG0T0 


DC 


/141C 


MGOTO 


0F8 


1014 




OC 


/68D6 






1015 




DC 


/1310 


LOFAC 


100 


1016 




OC 


/6043 






1017 




OC 


/226C 


STFAC 


108 


1018 




DC 


/6043 






1019 




OC 


/2208 


SEFAC 


nn 



SEITE 18 



1020 




DC 


1021 




[)C 


1022 




DC 


1023 


* 




1024 


* 




1025 


* 




1026 


# 




1027 


* 




1028 


* 




1029 


* 




1030 


* 




1031 


URED 


DC 


1032 




DC 


1033 




DC 


10 34 




DC 


1035 


UCOMP 


DC 


1036 




DC 


1037 




DC 


1038 




DC 


1039 


AERO 


DC 


1010 




DC 


1011 




DC 


1012 




DC 


1043 




DC 


1044 




DC 


1045 


AFIO 


DC 


1046 




DC 


1047 




DC 


1048 




DC 


1049 


AIOAF 


DC 


1050 




DC 


1051 




DC 


1052 




DC 


1053 




DC 


1054 




DC 


1055 




DC 


1056 




DC 


1057 


ICI 


DC 


1058 




DC 


1059 


SUBSC 


DC 


1060 




DC 


1061 




DC 


1062 




DC 


1063 


BCKSP 


DC 


1064 




DC 


1065 


EOF 


DC 


1066 




DC 


1067 


REWNO 


DC 


1068 




DC 


1069 




DC 


1070 




DC 


1071 




DC 


1072 




DC 


1073 


RSIGN 


DC 


1074 




DC 


1075 




DC 


1076 




DC 


1077 


UFIO 


DC 


1078 




DC 


1079 




DC 



/6043 
/0494 
/6043 



DVFAC 



118 



THE SU8R ENTRY NAMES FOR UNFORMATTED 
I/O ARE LOCATED IN TWO GROUFS, THUS 
ANY ONE HAS ONE OF TWO POSSIBLE 
DISPLACEMENTS, WHICH ARE 
/1200-/1400 OR 
/1O80-/1400 



120 

126 
130 
138 
140 
148 
150 
158 
160 
168 
17 
178 
180 
186 
190 
198 
1A0 
1A8 
180 
188 
ICO 

ice 

1D0 
108 
1ED 



72464 


URED 


/5100 




/2499 


UWRT 


/98C0 




72*«0C 


UCOMP 


/6517 




/1914 


READZ 


/1129 




/1464 


MRED 


/5100 




/1499 


MWRT 


/98C0 




/1400 


MCOM* 5 


/6517 




/1418 


MFIO 


79580 




71425 


MIOAI 


/6049 




71425 


MIOAP 


/6046 




/1425 


MIOFX 


761A7 




/1425 


MIOIX 


/6267 




/1425 


MIOF 


/6180 




/1425 


MIOI 


/6240 




/2290 


SUBSC 


72883 




70000 




/OOOO 




/020O 


BCKSP 


72897 




/0558 


EOF 


/6000 




71916 


REWNO 


Z6544 




/228C 


STOP 


/65C0 




/1706 


PAUSE 


/4885 




72255 


SNR 


79000 




/2290 


SUBIN 


72255 




72418 


UFIO 


/9580 




72425 


UIOAI 



I 



SEITE 19 



1080 




OC 


/6049 








1081 




DC 


/2*»25 


UIOAF 




1E8 


1082 




OC 


/6Qt»6 








1083 




OC 


/2**25 


UIOFX 




1F0 


loait 




OC 


/61A7 








1085 




OC 


/2*»25 


UIOIX 




1F8 


1086 




OC 


/6267 








1087 




OC 


Z2425 


UIOF 




200 


1088 




OC 


/6180 








1089 


UIOI 


OC 


/2*»25 


UIOI 




208 


1090 




OC 


/62*t0 








1091 


MDFIO 


OC 


/1*»10 


MDFIO 




210 


1092 




OC 


Z6256 








1093 


MDREO 


OC 


/l**il 


MDREO 




218 


109<« 




DC 


/9144 








1095 




OC 


/lt»12 


MDWRT 




22C 


1096 




OC 


/6663 








1097 




DC 


/liflO 


MDCOM 




228 


1098 




OC 


/359<» 








1099 




OC 





RESERVED 


TO KEEP CODE 


1100 




DC 





OIFF CONSTANT 


1101 


* 






BETWEEN DISK I/O 


1102 


* 






ROUTINES 


AND OTHERS 


1103 




OC 


/1410 


MCAI 




238 


110«» 




OC 


/12«»0 








1105 




OC 


/1«*10 


MDAF 




2«i0 


1106 




DC 


/1180 








1107 




DC 


/1M0 


MDFX 




2«*8 


1108 




DC 


/69C0 








1109 




OC 


/i*»10 


MOIX 




250 


1110 




OC 


/99C0 








1111 




DC 


/1410 


MDF 




258 


1112 




DC 


/6000 








1113 




DC 


/l«ilO 


MDI 




260 


lil*» 




DC 


/9000 








1115 




DC 


/1410 


MOFNO 




266 


1116 




DC 


/65***» 








1117 




DC 


/OOOO 






270 


1118 




DC 


/0000 








1119 


ECTA9 


OC 





NOT USED 




1120 




OC 











1121 


# 












1122 


* 












1123 


*******¥*¥*¥******¥*#¥***¥******##****** ¥*♦♦♦****# 


il2*i 


* 












1125 


* 




PROGRAM 


ENTRY 






1126 


* 




TEST IF 


OUTPUT 


IS 


TO BE DEFERRED 


1127 


ENT 


LD 


L ERROR 








1128 




8SC 


L START, • 


• BR TO 


START IF NO f<?ROR 


1129 


* 












1130 


* 




LOAD OVERLAY -RE ST ORE 


1131 


* 












1132 


EXIT 


LDX 


1 








1133 




STX 


LI SOFS 


ZERO 


THE 


: START OF STRING A 


1134 




BSI 


L ROLRX 


CALL 


DOWN RECOVERY PHASE 


1135 




OC 


28 




NEXT PHASE NUMBER 


1136 




3SS 


OVERL-*' 


► 320*3 


PHASE-27 PATCH AREA 


1137 




END 


NEG 









* 



